use Parsers;
use Parsers::ReSchedule;
my $data_start_row = 3;


msg("=" x 5, "Started ReSchedule", "=" x 5);

Parsers::ReSchedule->set_expected_keys(
                   qw[ 
                        ids edition_name cp required_build_num lang
                        edition vla media
                        mon tues wed thurs fri
                   ]);

my $rs = new Parsers::ReSchedule('E:\projects\info3\public_html\cgi-bin\info3\script\parsers\data\re_schedule\current_schedule.xls');

my $cols = {
             ids                 => 'A',
             edition_name        => 'C',
             cp                  => 'D',
             required_build_num  => 'E',
             lang                => 'F',
             edition             => 'G',
             vla  => 'H', media  => 'AI',
             mon  => 'AJ', tues  => 'AK', 
             wed  => 'AL', thurs => 'AM',
             fri  => 'AN'
           };

my $st = $rs->prepare($data_start_row , $cols);
$st->execute();
while ( my $row = $st->next ) {
    print $row->{edition_name}."\t".
          $row->{mon}."\t".$row->{tues}."\t".$row->{wed}."\t".$row->{thurs}."\t".$row->{fri}."\t"."\n";
}





